home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 201 / 201.d81 / b.arc baseball (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  178 lines
  1. 10 poke56,48:poke55,0:clr:gosub780
  2. 15 dv=peek(186):ifdv<8thendv=8
  3. 16 poke1023,dv
  4. 20 print""spc(14)chr$(14)"[151][208]lease [215]ait[145][145][145][145][145][145][145][145]"
  5. 30 fora=49152to49999:readb:pokea,b:c=c+b:next
  6. 40 ifc<>104062thenprint"[147]data error":stop
  7. 50 data 173,4,220,141,166,3,169,18,141,5,212,169,100,141,1,212,169,0,133
  8. 60 data 187,133,188,133,189,173,30,208,32,199,192,169,0,141,167,3,32,85,193
  9. 70 data 32,15,194,32,254,194,32,182,194,32,15,194,173,120,3,201,250,208,8
  10. 80 data 169,0,141,162,3,76,152,192,174,167,3,208,114,201,76,176,220,201,69
  11. 90 data 144,216,169,27,141,163,3,169,37,141,164,3,162,7,173,100,3,205,163
  12. 100 data 3,144,8,205,164,3,176,3,76,38,192,173,163,3,24,105,24,141,163
  13. 110 data 3,173,164,3,24,105,24,141,164,3,202,16,219,169,2,141,21,208,173
  14. 120 data 100,3,56,233,9,162,255,232,56,233,24,176,250,189,175,192,141,162,3
  15. 130 data 120,169,240,141,26,208,169,49,141,20,3,169,234,141,21,3,169,129,141
  16. 140 data 13,220,88,96,1,5,2,5,3,5,2,5,1,201,30,240,3,76,38
  17. 150 data 192,169,4,141,162,3,76,152,192,169,2,141,21,208,169,1,141,28,208
  18. 160 data 160,7,169,0,153,110,3,136,16,248,169,90,141,101,3,169,230,141,121
  19. 170 data 3,169,227,141,131,3,169,0,141,40,208,169,12,141,37,208,169,11,141
  20. 180 data 38,208,169,127,141,13,220,169,214,141,20,3,169,193,141,21,3,169,27
  21. 190 data 141,17,208,169,129,141,26,208,169,250,141,18,208,169,117,141,100,3,169
  22. 200 data 130,141,120,3,169,129,141,26,208,96,165,187,208,26,169,127,141,0,220
  23. 210 data 169,0,141,1,220,173,1,220,201,239,240,1,96,165,189,208,14,230,187
  24. 220 data 230,189,238,101,3,173,101,3,201,145,240,1,96,169,0,133,187,96,173
  25. 230 data 165,3,240,24,169,0,133,162,32,189,193,41,63,9,64,197,162,208,252
  26. 240 data 32,189,193,41,3,170,76,147,193,169,255,141,0,220,169,0,141,1,220
  27. 250 data 169,254,141,0,220,173,1,220,201,248,176,234,73,255,74,74,74,162,255
  28. 260 data 232,74,144,252,134,2,189,206,193,133,5,189,210,193,133,6,189,202,193
  29. 270 data 133,253,169,0,133,254,169,20,133,248,169,224,141,130,3,169,0,133,251
  30. 280 data 133,252,169,3,141,21,208,96,173,166,3,10,10,56,109,166,3,141,166
  31. 290 data 3,96,200,250,180,200,5,0,0,248,0,0,0,255,169,1,141,25,208
  32. 300 data 169,0,133,3,160,7,162,14,185,100,3,157,0,208,185,120,3,157,1
  33. 310 data 208,185,110,3,10,102,3,185,130,3,153,248,7,202,202,136,16,227,165
  34. 320 data 3,141,16,208,169,250,141,18,208,230,162,76,188,254,198,247,240,1,96
  35. 330 data 169,90,133,247,32,39,193,165,253,24,109,140,3,141,140,3,173,120,3
  36. 340 data 101,254,141,120,3,174,167,3,208,26,201,66,208,22,169,0,133,254,169
  37. 350 data 50,133,253,165,252,48,6,169,60,133,251,208,4,169,190,133,251,173,150
  38. 360 data 3,24,101,251,141,150,3,173,100,3,101,252,141,100,3,201,16,240,4
  39. 370 data 201,217,208,17,165,251,73,255,24,105,1,133,251,165,252,73,255,105,0
  40. 380 data 133,252,198,248,208,60,169,20,133,248,165,251,24,101,5,133,251,165,252
  41. 390 data 101,6,133,252,165,254,16,21,173,130,3,201,224,240,6,206,130,3,76
  42. 400 data 181,194,169,226,141,130,3,76,181,194,173,130,3,201,226,240,6,238,130
  43. 410 data 3,76,181,194,169,224,141,130,3,96,165,188,208,67,173,30,208,41,3
  44. 420 data 201,3,208,58,169,0,133,5,133,6,230,188,173,100,3,56,237,101,3
  45. 430 data 24,105,15,16,2,169,0,201,28,144,2,169,27,10,170,189,22,195,133
  46. 440 data 251,189,23,195,133,252,169,128,141,4,212,169,129,141,4,212,169,255,133
  47. 450 data 254,169,120,133,253,96,173,120,3,201,120,208,16,173,100,3,201,113,144
  48. 460 data 9,201,121,176,5,169,1,141,167,3,96,64,255,87,255,100,255,113,255
  49. 470 data 126,255,139,255,152,255,165,255,188,255,201,255,214,255,227,255,240
  50. 480 data 255,0,0,0,0,16,0,29,0,42,0,55,0,68,0,91,0,104,0,117,0
  51. 490 data 130,0,143,0,156,0,169,0,192,0,192,0
  52. 500 ml$="[162]"+chr$(8)+"[189]<"+chr$(3)+"[149]x[202]"+chr$(16)+chr$(248)+"l[191][163]":poke835,0
  53. 510 poke836,208:poke830,0:poke831,216:poke828,0:poke829,56:poke56334,0
  54. 520 poke1,51:ml$=ml$:sys(peek(51)+256*peek(52)):poke1,55:poke56334,1
  55. 530 fori=12568to12671:readj:pokei,255-j:next
  56. 540 fori=12672to12727:readj:pokei,j:next
  57. 550 data 0,115,219,219,219,219,113,0,0,111,102,102,102,102,198,0
  58. 560 data 149,149,149,149,165,170,170,170,86,86,86,86,90,170,170,170
  59. 570 data 170,170,170,165,149,149,149,149,170,170,170,90,86,86,86,86
  60. 580 data 130,130,130,130,130,170,170,170,128,0,0,0,0,0,0,0
  61. 590 data 255,255,255,126,060,024,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
  62. 600 data 0,0,0,0,0,0,0,128,255,255,255,126,60,24,0,0,213,213,245,245,253,253
  63. 610 data 255,255,87,87,95,95,127,127,255,255,125,125,125,125,125,125,125,125
  64. 620 data 126,255,255,255,255,255,255,255,255,255,255,255,255,255,255,126
  65. 630 data 127,255,255,255,255,255,255,127,254,255,255,255,255,255,255,254
  66. 640 q=14336
  67. 650 readb:ifb<0thenfora=1toabs(b):pokeq,0:q=q+1:next:goto650
  68. 660 ifb=256thenff=1:goto730
  69. 670 pokeq,b:q=q+1:goto650
  70. 680 data -25,60,0,0,255,0,0,85,0,0,85,0,0,20,-51,20,0,0,255,0,0,255,0,0,85,0,0
  71. 690 data 20,-51,20,0,0,85,0,0,85,0,0,255,0,0,60,-66,255,0,7,255,224,31,255,248
  72. 700 data 63,255,252,127,255,254,127,255,254,255,255,255,255,255,255,239,256
  73. 710 data 129,0,0,0,0,0,0,0,0,0,0,0,0,0,0,129
  74. 720 data 128,0,0,0,0,0,0,128,1,0,0,0,0,0,0,1
  75. 730 poke53272,23:poke53270,200
  76. 740 cl(1)=10:cl(2)=14:fl=0:rm=20:pl=2
  77. 750 fora=54272to54295:pokea,0:next:pokea,15:poke54280,17:poke54284,18
  78. 760 in=1:sk=0:ck=0:p1$="home":p2$="visitor":gosub770:goto860
  79. 770 ifff=1thenreturn
  80. 780 print"[147]"spc(6);:poke53281,0:poke53280,0
  81. 790 print"[190][188][146]  [161][172][187][146][187] [172][172][187][146][187]  [190][188][146]  [161][172][188][146]  [161][172][162][146][190]"spc(11)"[161][188][190][146][161] [161][188][190][146][190] [161]";
  82. 800 print"[146][161]   [161][188][190][146][161] [161][146][161][161][146][161] [161][188][146][187]"spc(12)"[161][146][161][161][146][161] [161][172][188][146]  [161][146][161][172][187] [161][146][161][161][146][161]";
  83. 810 print" [161][146][161][190][146][190] [161][146][161]"spc(13)"[188][190][188][190] [188][190][188][190]  [162][162][146]  [188][190][188][190] [188][162][146][190]  [188][162][162][146][190]"spc(9);
  84. 820 print" [161][172][187][146][187] [190][188][146] [172][172][187][146][187][161][172][162][146][190][161][172][187][146][187] [190][188][146] [161][146][161]  [161][146][161]"spc(10)"[161][188][190][146][190][161]";
  85. 830 print"[188][190][146][161][188][188][146][162] [161][188][146][187] [161][188][190][146][190][161][188][190][146][161][161][146][161]  [161][146][161]"spc(10)"[161][146][161][161][146][161][161][146][161][161][146][161][172][187]";
  86. 840 print"[161][146][161][161][146][161]  [161][146][161][161][146][161][161][146][161][161][146][161][161][146][161]  [161][146][161]"spc(10)"[188][162][162][146] [188][190][188][190] [162][162][146] [188][162][162]";
  87. 850 print"[146][190][188][162][162][146] [188][190][188][190][188][162][162][146][190][188][162][162][146][190]":return
  88. 860 printchr$(14)""spc(12)"[129][208]ractice    [198]1":printspc(12)"[208]lay        [198]7"
  89. 865 printspc(12)"             ":printspc(12)"[209]uit        [209][145]"
  90. 870 poke198,0:wait198,1:getmt$:ifmt$<>"[133]"andmt$<>"[136]"andmt$<>"q"then870
  91. 875 ifmt$="q"then2000
  92. 880 ifmt$="[133]"thenfl=1:in$="1":goto920
  93. 890 c$="              ":printchr$(142)"[145][145][145][145]"spc(12)c$:print""spc(12)c$"[145][145][145][145]"
  94. 900 printspc(12)"1[146] or 2[146] players"
  95. 905 printspc(12)c$
  96. 910 poke198,0:wait198,1:getin$:ifin$=""orin$<"1"orin$>"2"then910
  97. 920 np=val(in$):poke933,-(np=1):print"[147]";:poke53280,2:poke53281,1:te=6:b$=""
  98. 930 poke53272,28:poke53282,3:poke53283,0:poke53270,peek(53270)or16
  99. 940 w=1063:pokew,160:a$=" [146]"
  100. 950 pokew+54272,6:c$="[159]                           ":d$="            "
  101. 960 foru=1to2:fori=1to12:printc$;:poke646,te:printd$:sm=w+40*i:pokesm,160
  102. 970 pokesm+54272,te:nexti:te=5:w=1543:nextu:printc$""d$""
  103. 980 print""spc(27)"            ":poke1543,160:poke55815,2
  104. 990 print"1b [146]#$ 2b [146]#$ 3b [146]#$ 2b [146]#$ 1b"
  105. 1000 print"[150]'('('('('('('('('(":print"%&%&%&%&%&%&%&%&%&"
  106. 1010 print""spc(12)"  [157][157]  [157][157]  ":print"[153][150]0"spc(24)"1":y=24
  107. 1020 x=1:fori=1to6:forz=1tox:b$=b$+a$:nextz:printb$"0";:printtab(y)"1"b$:b$=""
  108. 1030 y=y-1:x=x+1:nexti:print"       [146]0"spc(10)"1